gusucode.com > 耐品图片管理系统 标准版A > 耐品图片管理系统 标准版A/Admin_SaveFile.asp

    <!--#include file="Admin_ChkPurview1.asp"-->
<%
'===============================================================
' 著作权号：中国国家版权局著作权登记号2004SR07385
' 版权所有：深圳市耐品科技开发有限公司 www.naipin.com
' 联系电话：0755-26611119　81234844　81234845
' 联系手机：13316911914
' 联系邮箱：naipin@naipin.com
'===============================================================

IF Not Response.IsClientConnected Then
	Response.Write("对不起，连接失效，请稍候再试！")
	Response.End()
End IF

Dim TypeId,ClassId,SpecialId

TypeId = Trim(Request.QueryString("TypeID")&"")
ClassId = Netout.CheckNumeric(Request.form("ClassId"))
SpecialId = Netout.CheckNumeric(Request.form("SpecialId"))
IF ClassId = 0 Then
	Behind.WriteErrMsg "<br><li>请选择一个分类！</li>"
	Response.End()
End If

Dim TitleName
Dim ManuName
Dim TitleDesc

TitleName = Netout.HtmlEncode(Trim(Request.form("TitleName")),True)
ManuName = Netout.HTMLEncode(Trim(Request.Form("ManuName")),True)
TitleDesc = Netout.HtmlCode(Request.Form("TitleDesc"),True)

Dim ClassName,SpecialName
ClassName = Behind.GetLongClassName(ClassId,"/","Nt_ClassName")
SpecialName = Netout.GetScalar("Select SpecialName From Nt_Special where Id="&SpecialId)

Dim GroupInfo
GroupInfo = TitleName&"#@@#"&ManuName&"#@@#"&IsMaitu&"#@@#"&AcceptMaitu&"#@@#"&ImageLocal&"#@@#"&Copyright&"#@@#"&TitleDesc
Session("GroupInfo") = ClassId&"#@@#"&SpecialId&"#@@#"&GroupInfo&"#@@#"

Dim UploadFiles,UploadCount
UploadFiles = Split(Mid(Trim(Request.Form("UploadFiles")),5),"@#@#")
UploadCount = Ubound(UploadFiles)

Dim TitleId
Dim Rs,SqlStrings

Set Rs = Server.CreateObject("adodb.recordset")

SqlStrings = "select * from NT_Title where TitleName='"&TitleName&"' and ClassID="&ClassId&" and TitleUser='"&Netout.UserName&"' and ManuName='"&ManuName&"'"
Rs.Open SqlStrings,conn,1,3
If Rs.eof Or Rs.bof Then
	Rs.AddNew
	Rs("ClassId")   = ClassId
	Rs("SpecialId") = SpecialId
	Rs("iCount") 	= UploadCount+1
	Rs("TitleName") = TitleName
	Rs("ManuName")	= ManuName
	Rs("TitleUser")	= Netout.UserName
	Rs("TitleDesc") = TitleDesc
	Rs.Update
	TitleId = Netout.GetNumberScalar("Select Max(TitleId) from Nt_Title")
Else
	Rs("iCount") = Rs("iCount")+UploadCount+1
	Rs("UpdateTime") = Now
	Rs.Update
	TitleId = Rs("TitleId")
End IF
Rs.Close

Dim i,j

Dim arrFileInfo

Dim arrImageInfo
Dim strImageInfo

Dim ImageId

strImageInfo = ""


Rs.open "Select * From Nt_imgbook where ID is Null",Conn,1,3
For i = 0 To UploadCount
	arrFileInfo = Split(UploadFiles(i),"$#@$")
	arrImageInfo = Split(arrFileInfo(5),"$||$")

	' 文件名
	arrFileInfo(0) = Replace(arrFileInfo(0),"."&arrFileInfo(2),".jpg")
	' 图片说明
	arrImageInfo(1) = Netout.HtmlEncode(Netout.HtmlCode(arrImageInfo(1),False),True)
	' 图片原始路径
	arrFileInfo(1) = Replace(arrFileInfo(1),"/","\")
	
	Rs.AddNew
	Rs("TitleId") = TitleId
	Rs("ImageFile") = arrFileInfo(0)
	Rs("ImageInfo") = arrFileInfo(6)
	Rs("DiskPath")  = arrFileInfo(1)
	Rs("FileExt")	= arrFileInfo(2)
	Rs("ImageSize") = arrFileInfo(3)
	
	If Not Purchase Is Nothing Then
		Purchase.SaveUpload Rs,arrFileInfo(4)
	End If
	
	Rs("ImageDesc") = arrImageInfo(1)
	Rs("Passed")	= Netout.GetCookie("PicFlag")
	Rs.Update
Next
Rs.Close

Dim strMessage
strMessage = "总共上传<font color=red>"&UploadCount+1&"</font>张图片。还需要继续上传吗？<br><br>"&_
	"<a href='Admin_Add.asp?PhotoCount="&Request.QueryString("PhotoCount")&"' class='black'>确 定</a>&nbsp;&nbsp;&nbsp;"&_
	"<a href='Admin_Images.asp' class='black'>取 消</a>"
Behind.WriteSuccessMsg strMessage,"Admin_Add.asp?PhotoCount="&Request.QueryString("PhotoCount")
Set Netout = Nothing
%>